IBM MAINTENANCE DIAGNOSTIC PROGRAM 

FF2« SYSTEM TEST SUPERVISOR 

EBB LCC OBJEtT CODE ADCR STMT SOURCE STATEMENT 
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D.CK 1 
FF2 S'.ART X'AOO 1 

•***••••*****• ****♦*****.*.*♦*****•*♦.*.*♦*««****,***»,*,„»„„, ,„,^ 

* 

* SYSTES/3 SYSTEM TEST SUPERVISOR * 

* 

*****•*,**,*** *****♦*♦•*••***•*♦***»«**.*»***, *,»«*„.,^,m^ <A ,„„^ 

PROGRAM IDENTIFICATION AND LEVEL 

FLAGS - HO SPUDT 

CURRENT ROUTINE NCKBER 

RESERVED 

ADDRESS OF FIRST ROUTINE PREFIX 

RESERVED 

****************************************,,»«»*»«*»m,n,^m^^^^, 

* TRANSFER TABLE * 
********»t *********** ************«********♦***********»*»»«»» *»«„^, # ^ 

• 

* 

* 

* 

* 

****** 



EC 


XL2'FF2'»• 


DC 


XLV80- 


DC 


IL1'0' 


DC 


XL2'0« 


DC 


AL2'R T N01) 


DC 


XL2'0« 



THE SYSTEMS TEST SUPERVISOR PROVIDE; 
FOR USE BY THE MODULES IT CONTROLS. 
TO BFANCH TO THIS ENTRY WHENEVER THE 
OR NOT READY. 
************************** ********** ♦**«********»,»»*»*»»,,n,. 



THE FOLLOWING LINKAGE 

EACH MODULE MUST BE WRITTEN 

DEVICE BEING TESTED IS BUSY 



L TS1.IAR 

TR1 DC AL2(RENTRY) 

TABLE EQU * 

DS CL129 



****************************** 



ENTRY TO PASS CONTROL TO NEXT MODULE 



TABLE CONTAINING CATALOG OF PROGRAM 
MODULES IN CORE. PROVISIONS ARE 
HADE FOR SUPERVISION OF UP TO 16 * 
MODULES. INFORMATION IS CONTAINED* 
AS IN THE FOLLOWING DIAGRAM. * 

* 

***** 



********************************************* 
* ARP I XR1 I XS2 I STARTING * 

I I ADDRESS * 



**••••****••***,***** *************** 



******* ************** «»**,, *****»*♦*♦*******************.*****»*»»**,, 

* ROUTINE 01 - SYSTEMS TEST SUPERVISOR * 

••***********, ,****, . ***-»************•*•***. ♦♦**,*»,***.,»^,^„ <> ^ <1 ^ 



THIS PCUTINS 
SIMULTANEOUS 



PROVIDES THE SUPERVISORY FUNCTION TO HANDLE THE 
OPERATION OF UP TO 16 PROGRAM MODULES. THE INDI- 

* VIDUAL MODULES ARE REFERENCED BY 8-_. ; ENTRI£S IN -TABLE- 

* '.KKAGE FRCM MODULE TO SUPERVISOR MUST TAKE PLACE EACH TIME THE 

* DEVICE BEING TESTED IS BUSY OR NOT READY. TRANSFER MUST BE MADE 

* VIA A BRANCH TO LOCATION X'AOA'. THE SUPERVISOR SAVES THE PRO- 

* GRAM ARR, XR1 AND XR2. THEN PASSES CONTROL TO THE NEXT PROGRAM 

* BY ERANCHING VIA ITS PREVIOUSLY STORED A" . 
******* ***********♦*******♦***♦**♦****♦*****»,., »»,*,»*»„„^^., <lt# „^ < ^ 

RTN01 DC XLVO'' 1 CURRENT ROU.J.K? NUMBER 

DC XLVO' FLAGS 

DC AL2(RTN02) ADDRESS OF NEXT ROUTINE PREFIX 

*•*••••••***•****•***•****,*,***,* *********♦, ,,****,,*»m,,,»,mm^, 

LA TABLE, XR1 SET UP TO RESTART ALL MODULES 

R1LCOP CLI (,XR1) jX'FF' 

JE FIRST 

L 7(,XR1),XR2 

HVC 1 (2,XS1),7(,X-R2) 

ALC 1(2, XR1), FOUR 

LA 8(,XR1),XR1 

B H1LOOP 

* *****•••**•••* ********♦*♦**•***♦******♦♦♦♦»***,«, *,*,», # ,,, # ,,, ## „ t ^ 

* MODULE LINKAGE TO THIS SUPERVISORY ROUTINE IS H.4DE AS FOLLOWS * 

* 

* B SNTRY WHERE ENTRY EQU X'AOA' * 
**.****•**•*•»,***•*•*,,* **♦**•••♦•*•**»♦«♦*»***,»» »*,»,m,,,*,^^, + . 



•)ATE 
EC NO. 



28JUL69 
816UUU 



14N0V69 
816555 



2OJAN70 

016576 



13MAR70 
816638 



17APR70 
816677 



01APR71 
818948 



PROG 

i'AGE 



ID 



OFK2-4 

1 



IBB MAINTENANCE DIAGNOSTIC PROGRAK 



PART NO. 
PAGE 



2589907 
1A 



FF24 



SYSTEM TEST SUPERVISOR 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



0AE2 


3* 


01 


CC92 




0A86 


35 


01 


CC96 




0A3A 


74 


C3 


01 




OABD 


4C 


01 


C3 0C92 


0AC2 


74 


02 


C5 




0AC5 


30 


00 


0C92 




0AC9 


3D 


EB 


CC91 




OACD 


CO 


8 1 


0216 




0AC1 


38 


AO 


0C9 1 




0AD5 


39 


40 


0C91 




0AD9 


F2 


90 


43 




OADC 


08 


01 


0C93 


0C91 


0AE2 


08 


02 


0C93 


0C92 


0AE8 


08 


01 


CC94 


0C92 


OAEE 


C2 


01 


0A08 




0AF2 


D2 


01 


ce 




OArS 


7D 


FF 


00 




0AF8 


F2 


81 


24 




OAFS 


75 


02 


C7 




OAFE 


28 


03 


0C94 


01 


OB 3 


2D 


01 


CC94 


01 


OEoe 


CO 


01 


0AF2 




030C 


7C 


EF 


00 




OBO? 


38 


10 


0C91 




C313 


F2 


90 


C9 




OBI 6 


6C 


01 


CI 07 


031 A 


4E 


01 


0" 0C44 


0B1F 


35 


01 


GC9 6 




0E23 


3D 


DO 


CC9 1 




0327 


CO 


C2 


C212 




0B2B 


D2 


01 


08 




0B2E 


7D 


E E 


00 




0R31 


CO 


81 


0B23 




0335 


7D 


FF 


00 




0338 


F2 


C1 


OC 




0B33 


C2 


01 


0A08 




033F 


34 


01 


CC96 




0EU3 


co 


37 


0AC5 




0347 


1C 


01 


0B59 


01 


0B4C 


75 


02 


05 




0B4F 


34 


C1 


0C96 




CB53 


75 


01 


03 





0B56 CO 87 0000 



0B5A 02 
0B5B 00 
OBSC FFFF 



0B5A 
0B5B 
0B5D 



70 
I' 
72 
73 

1U 
7- 

76 
77 
78 
79 

eo 
si 

.3 2 

S3 
Si. 



CKLOG 



SENTRY ST 
L 

ST 
RVC 
ST 

sss 

CLI 

BE 

TBN 

TEF 

JF 

MZN 

MNZ 

MZN 

LA 

LA 

CLI 

JE 



V- FINDLP 



36 

89 

90 

91 

92 

93 

9U 

9S 

9o 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 10 

1 11 

112 

1 13 

1 1U 

1 15 

1 1 6 

1 17 

1 18 

1 19 

1 20 

121 

122 

123 

124 

125 

126 

127 

123 

129 

130 

131 

132 

133 

134 

135 

1 36 

137 



MNN 

CLC 

3NE 

KVT 

TBN 

JF 

MVC 

ALC 



CKDCP L 



NEX1 



FIRST 



GOTO 



CLI 

ENL 

LA 

CLI 

3E 

CLI 

JNE 

LA 

ST 

B 

nvc 

L 
ST 



SAVE1, xri 

PCINTR, XR1 

1 (,XR1) .ARR 

3 (2,XR1) ,SAVE1 

5 (,XR1) ,X32 

SAVEI.X'O ■ 

SAVE1-i ,X' BB" 

LINK 

SAVE1-1 ,X'AO' 

SAVE1-1,X' 40' 

CKDCP 

H0RK-1.SAVE1-1 

WOPK-1, SAVE1 

W0RK.SAVE1 

TABLE-8,XR1 

8 1.XP1) ,XR1 

(,XR1) ,X'FF' 
CKDC? 

7 (,X?1) ,X32 
WO?K, 1 (,XR2) 
WORK (2) . 1 {, XR2) 
FINDLP 

(,XR1) ,X' EE' 
SAVS1-1 ,X' 10' 
CKDCP 
1 (2.XR1) ,7(,XR2) 

1 (2, XRI) ,PCUR 
POISTR.XR1 
SAVE1-1 ,X'D0 • 
TEST 

3 (»X?1) ,XH1 
(,XR1) ,X' EE' 
NEXT 

(,XF1) ,X« FF> 
GOTO 

7A3LE-S.XR1 
POINTS, XR1 
CKLOG 

RETU3N+3 (2) ,1 (,XR1) 
5 (,XS1) ,XR2 
POINTS, XR1 
3 J.XR1) ,X31 



SAVE XR1 TEMPORARILY 

RELOAD TABLE POINTER 

PLACE RETURN ADDRESS IN TABLE SLOT 

SAVE MODULE XRI AND XR2 



:HECK DATA SWITCHES FOR LOGOUT 
INSTRUCTIONS 



CONTINUE TEST IF NOT 
IN DATA SWITCHES 

ISOLATE ID OF MODULE 
OR DISABLED 



OR 'B« 



TO BE ENABLED 



GO THROUGH TABLE OF MODULES UNTIL 
CORRECT ONE FOUND 



DISABLE MODULE IF 
ENABLE IF BXXX 



ENTRY MAS AXXX 



RELOAD TABLE POINTER 
GO TO DCP IF POSSIBLE 



VALID ENTRY 



INCREMENT POINTER TO NEXT TABLE SLOT 
SKIP MODULE IF IT IS DISABLED 

BRANCH IF NOT LAST ENTRY 

RE-INITIALIZE TABLE POINTER IF THIS 
WAS LAST ENTRY 



LOAD RETURN ADDRESS WITH SAVED ARR 
RESTORE XR1 AND XR2 FOR THIS PROGRAM 
MODULE 5 SAVE TABLE POiKTER 



RETURN B 



GO TO NEW PROGRAK MODULE 



<*•****•**•***•*•*••*•• 



***«»****»♦*******»*»***»******************»«*» 

* ROUTINE 2 - LCGCUT 

*«***»***♦*****»«. »»««*«»»*«***«*»*******»*»**t******T****»«*»»*»»»**» 

* 

* THIS ROUTINE LOGS THE ERROR RECOP">ING TABLE FROM EACH MODULE. 

* LOGOUT CCCURS ONLY UPON DATA SWI'iCH SELECTION OF THIS ROUTINE. 
» RECORDING TABLE ENTRIES HAVE THE FOLLOWING FORMAT 



♦**»***»*****»*»*****«****«*»******#**♦»*********** 
« CODE * LENGTH * N BYTES Of FORMAT SPECIFIED * 
* BYTE * -N- * BY THE COD.-'. BYTE * 

*♦*»*****»#»**»*********»***»*****« v* *•********••• 



BIT 

1 



PRINTABLE DATA - PRINT AS IS. 

PACKED HEX DATA - UNPACK BEFORE PRINTING. 



* A CODE BYTE OF X'FF' TERMINATES LOGOUT. 

*«*•♦«**«****«♦*»*♦»***«**»**«*»*»*•****«*♦♦******»♦♦«*****»**«*«***** 

RTN02 DC XL1»02' CURRENT ROUTINE NUMBER 

DC XL1'0' FLAGS 

DC XL2«FFFF' LAST ROUTINE PREFIX 

*«**»»»*•»**»«*»****♦***♦«*«»*»**•♦*»»»*»**•*•»*♦***«»**♦»**«♦•»»**»**» 



DATE 
EC NO. 



28JUL69 
816444 



14NOV69 
816555 



2OJAN70 
816576. 



13HHR70 
816638 



17APR70 
816677 



01APR71 
8 18948 



PROG I.) 
PAGE 



0FF2-4 
1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



2589907 
2 



FF24 



SYSTEM TEST SUPERVISOR 



EHR LOC OBJECT CODE 

OE5E CC 87 021? 

0B62 13 

0B63 3C 5C C8DA 

0E67 0C 59 08D9 08DA 

0E6D CC 87 021A 

OB71 22 

0B72 C2 01 0A10 

OB76 7D FF 00 

CB79 F2 81 A2 



ADOR STMT SOURCE STATEMENT 



037C 



02 C7 



OB7F 


BD 


FF 


08 




0B82 


F2 


81 


92 




OE85 


E5 


02 


C9 




0BR8 


B9 


3F 


00 




0ES3 


F2 


90 


73 




033E 


2C 


00 


0C4 8 


01 


0B93 


3C 


00 


0C4 7 




0B97 


zz 





0BF5 


01 


CE9C 


34 


C2 


C3F7 




OEA0 


CE 


01 


03F7 


0C42 


0BA6 


OE 


01 


03F7 


0C48 


OEAC 


OC 


01 


0EE5 


0BF7 


0BB2 


38 


80 


00 




OB35 


? 2 


1C 


38 




0B38 


B3 


40 


00 




0B53 


F2 


90 


45 




EEE 


2C 


00 


C3E3 


01 


OBC3 


ac 


01 


CBE7 


0C46 


0BC9 


OS 


00 


0C48 


0C48 


03CF 


OE 


01 


03E7 


0C48 


OBD5 


3C 


40 


08FF 




03C9 


OC 


33 


08FE 


08FF 


OBD? 


CO 


87 


021E 




0BE3 


00 








GBE4 


0000 






0BE6 


0000 






0EE8 


n 


87 


021 A 




EEC 


^ * 








OBED 


F2 


87 


C8 




OEFO 


CO 


8 7 


021A 




CBF4 


01 








OBF5 


00 








0BF6 


cooo 






0BF8 


35 


02 


0BE5 




OBFC 


E2 


02 


01 




OEFF 


CO 


87 


0B88 




OC03 


CO 


87 


021A 




CC07 


11 








0C08 


3C 


60 


C»DA 




ocroc 


OC 


r :9 


C8D9 


C8DA 


OC12 


CO 


87 


C21A 




0C16 


22 








0C17 


D2 


01 


08 




0C1A 


CO 


87 


0376 




0C1E 


CO 


37 


021A 




0C22 


42 








0C23 


48 








0C24 


0C90 






0C26 


FFE1 






OC28 


3C 


50 


08DA 




0C2C 


OC 


59 


C8D9 


OSDA 


OC32 


CC 


87 


C21A 




OC36 


26 








OC37 


CO 


87 


C222 




0-.3B 


FFE1 






0C3D 


CO 


87 


COOO 





OB62 



0B71 



0BE3 
0BE5 
0BE7 

2 EC 



0BF4 
0BF5 
0BF7 



0C07 



0C16 



0C22 
0C23 
0C25 
0C27 



0C36 
0C3C 



138 

139 

140 

141 

142 

14 3 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

•179 

ieo 

131 
182 
183 
184 
185 
186 
187 
188 
183 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 



CKBOD 



L00P5 



ULEN 

UADH1 

UADR2 



PRTENT 

PLEN 
PADR 
NXCODE 



85 NXMOD 



NXH0D1 
LOGEND 



B 
■ DC 

MVI 

MVC 

B 

DC 

LA 

CLI 

CLI 

JE 

L 

TBF 

JF 

MVC 

MVI 

MVC 

ST 

ALC 

ALC 

MVC 

TBN 

JT 

TBN 

•IF 

MVC 

MVC 

ALC 

ALC 

MVI 

MVC 

B 

OC 

DC 

ilC 

1 

DC 

J 

B 

DC 

DC 

D>: 

I 

LA 

B 

B 

DC 

HVI 

MVC 

B 

DC 

LA 

B 

E 

DC 

DC 

DC 

DC 

BVI 

MVC 

E 

DC 

e 

DC 
B 



PRINT 

XL1' 13' 

PLINE+90,C'*' 

PLIKE + P9 (90) ,FLINE*90 

PRINT 

XL1 »22' 

TABLE, XR1 

(,XR1) .X'FF* 
LCGSND 
7(,XH1) ,XR2 

8 (,XR2) ,X'FF' 
NXM0D1 

9 (,XR2) ,XR2 

(,XR2) ,B«00111 111» 
NXMOD 

ADR(1),1 (,XR2) 

ADR-1,X'0' 

PLEN(1) ,1 (,XR2) 

?.\DB,XR2 

PADR (2) ,CNE 

PADR{2) ,AER 

UADR1 (2) .PADR 

(,XR2) ,X'80» 

PRTENT 

(,XR2) ,X'40' 

NXMOD 

ULES(1) , 1 (,XR2) 

UADR2 (2) .X881 

ADR(1) , ADR 

UADR2 (2) ,ADR 

PLINE*127,C ' 

pline* 126(132) ,pline* 

unpack 

ilvo* 

A 1.2 (*-*) 
AL2 (*-*) 

P3INT 
XLV2V 
NXCODE 
PRINT 

;. 1 • o 1 • 
i; i '0' 

AL2 (*-»]. 
UADR1.XR2 

1 (,XR2) ,XR2 
L00P5 
PRINT 

XL1' 11> 

PLINZ+90,C«- • 

PLINF.+89 (90; ,PLINE+90 

PRINT 

XLV22* 

8(,XR1) ,XR1 

CKMOD 

PRINT 

XL1 '42' 

ILI'72' 

AL2(ENDBSG) 

XL2»FFE1« 

PLINE+90,C»*' 

PLINE+89(90) ,FLINE*90 

?RINT 

XJ.1'26' 

HALT 

XL2'FFE1 » 





SPACE PCINTER 

PRINT A LINE OF ASTERISKS AS A 

SEPARATION 



POINT XR1 AT TABLE OF MODULES 
BRANCH IF LAST ENTRY 

LOAD POINTER TO MODULE SPT 
BRANCH IF HO RECORDING TABLE 

LOAD ADDRESS OF TABLE INTO XR2 

IF INVALID BITS - TERHINATE LOGOUT 

OF THIS MODULE 
IF X'FF 1 CODE BYTE - MODULE DONE 



HOVE LENGTH OF FIELD TO PRINT LINK 
SET UP ADDRESS PARAMETER 



SET UP UNPACK SOURCE ADDB 

GO PRINT I? THIS IS PRINTABLE ENTRY 

IF iJOT HEX DATA, HOST BE CODE ERROR 

TERMINATE LOGOUT OF THIS MODULE 
SET UP PARAMETERS TO UNPACK HEX DATA 



CLEAR DCP PRINT AREA 
127 
UNPACK HEX DATA 



PRINT OUT HEX DATA 

GO CHECK NEXT CODE BYTE 
PRINT OUT THIS ENTRY 



MODIFY XR2 TO POINT AT NEXT 

CODE BYTE 
GO CHECK THIS ENTRY 



PRIST LINE OF DASHES TO SEPARATE 
MODULES 



INCREMENT TO NEXT MODULE 

GO PRINT LOGOUT OF NEXT MODULE 

PRINT ENDING HSG AMD INSTRUCTIONS 



PRINT A LINE OF ASTERISKS 



HALT TO ALLOW INTERVENTION 
GO RESTART PROGRAM 



DATE 
EC KO. 



28JUL69 
316444 



14NOV69 
816555 



20JAN70 
816576 



13HAR70 
816638 



17APR70 
816677 



01APR71 
818948 



PROG ID 
PAGE 



0FF2-* 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



FF24 



SYSTEM TEST SUPERVISOR 



PART NO. 
PAGE 



2539907 
2A 



EBB LOC OBJECT CODE 



0C41 0001 
0C43 0004 
0C45 0881 
0C47 00C0 



ADDS STMT SOURCE STATEMENT 



0CU2 
0C44 
0C46 
0C48 



0L49 D3E6C7C654E340C3 0C7B 
0C51 DbDUD7C3C5E3C540 
0C59 6040E9C5E4D6E5C5 
0C61 4060C2C26040C6D9 
0C<i9 D6E440B3C5C6E34O 
0C71 F240E2E6E240E3C8 
0C79 C5D540 

0C7C T9C5E2C5E340C8C1 0C90 
0C84 D3E340E3E640E9C5 
0C8C E2E3C1D9E3 



0C91 0C92 

CC93 0C94 

0C95 0C96 



C:":0S 
30 10 
0212 
0216 
021A 
021E 
0222 
09 80 



FFFF 



206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
217 
217 
217 
217 
21? 
217 
218 
218 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
22s 



2 12 
233 
2 34 
2 35 
236 
237 
238 
239 
24C 
241 
242 
243 
244 
245 
246 
247 



»•**»*»*»*»♦* 

* CONSTANTS »********»*****»*****♦*»»»**********•*******«**»»**»*»»*«*» 

ONE DC IL2M' 
FOUR DC IL2'4' 
X881 CC XL2'881' 
ADR EC XL2 , 0" 

* PRINTOUTS •**»*»**•****«*»»*»*»***»*****•****»******•******•*****»«** 

DC CL51' LOGOUT COMPLETE - REMOVE -BB- FROM LEFT 2 SH5 THEN • 



SNDKSG DC 



CL2TRESET HALT TO RESTART" 



*«***♦»***♦»****»*»* 

* RESERVED STORAGE **************************************************** 
»»*******♦»***»*»«*» 

SAVE1 DS CL2 TEMPORARY SAVE AREA FOR XR1 

WORK 05 CL2 

POINTR DS CL2 TABLE POINTER FOR NEXT MODULE 



* 5CUAT 



»♦** 

ES *** 

* *** 



****»*♦*»***************♦»««»****♦**»**»»»***«*»»***> 



APR 

IAF 

TEST 

LINK 

PRINT 

UNPACK 

HALT 

PLIHE 



EQU 

ECU 

EQU 

EQU 

EQU 

EQU 

EQU 

TREP 

TREP 

TREP 

TREP 

TREP 

T3EP 

TREP 

END 



1 

2 

X'08< 

X'10' 

X'212' 

X'216' 

X'21A' 

X»21E« 

X«222« 

X'880' 



IVDFX PE^ISTKR 1 

INDEX REGISTER 2 

ADOFESS RECALL REGISTER 

I'rSTRUCTION ADDRESS REGISTER 

St:T -ENTRY TO CHECK CONSOLE SWITCHES 

SFT -ENTRY TO CHAIN ROUTINE 

SRT -ENTRY TO PRINT 

SR7 -ENTRY TO CONVERT HEX TO EBCDIC 

SRT -ENTRY TO HALT 

START OF DCP PRINT LINE 



DATi 
EC >0. 



28JUL69 
816444 



14N0V69 
816555 



20JAN70 
816576 



13HA370 
816638 



17APR70 
816677 



01APR71 
818948 



PROG ID 
PAGE 



OFF2-4 
2A 



IBM MAINTENANCE DIAGNOSTIC PSCGRAK 



FF24 SYSTEB 7EST SUPERVISOR 



PART or. 
PAGE 



2589907 
3 



CRCSS-REFERENCE 



SYMBOL 

ADR 

ARR 

CKDCP 

CKLCG 

CK30D 

END.1SG 

FF2 

FINDLP 

FIRST 

FOUR 

GOTO 

HALT 

IAS 

LINK 

LGG.~ND 

LCCF5 

NEXT 

NXCODE 

NXKOD 

NXKCD1 

ONE 

PATH 

PLEN 

FLINE 

POINTR 

PRINT 

PBTENT 

BESTRY 

SETUPS 

R-'NOI 

RTK02 

R1L00P 

SAVE1 

1 ABLE 

TEST 

TR1 

lAE.n 

t »jH2 

ULE" 

ONPACK 

HOHK 

XR1 



LEN VALUE DEFN 



REFERENCES 



0C2 
OCT 
0C4 
004 
OCT 
021 
0C1 
003 
00* 
002 
CC5 
0O1 
001 
001 
CCu 
003 
0C3 
004 
0C4 
003 
0C2 
002 
OCT 
"01 
02 
0C1 
004 

oc* 
oca 
OCT 
001 
0C3 
C02 
CC1 
001 
002 
C02 
0C2 
001 
001 
002 
0C1 



or«6 
coos 

0B1 F 
0AC5 
0B76 
0C<*0 
OAOO 
0AF2 
C3*3F 
0C44 
C347 
0222 
001O 

02ie 

DC" E 

OP -b 

0325 

0BF6 

CCC3 

0C17 

CCi.2 

OHF7 

GBF5 

OHPO 

CC9f 

021 A 

C3FO 

CAB2 

0356 

CA91 

0B5A 

CA9 9 

0C9 2 

CA10 

C212 

OAOF 

0BE5 

C3E7 

OBF3 

02 IE 

0C94 

0001 



0212 
0232 
0097 
0075 
1 45 
0218 
0003 
008^ 
01C5 
02 10 
01CC 
023S 
02 33 
0235 
0193 
0151 
0100 
0182 
0185 
0191 
02C9 
0181 

01 80 

02 39 
0225 
0236 
0178 
0070 
01 12 
0053 
0134 
0058 
0223 
0029 
0234 
0027 
0173 
0174 
0172 
0237 
0224 
0230 



XP2 C 001 0002 0231 
X881 A 002 0C46 02H 



3154* 

0C72 

0080 

107 

0192 

0196 



0091 

59 

0062 

104 

0202 

0025» 

0077 

146 

164 

0102 

177 

152 

0149 

0158 

0157* 

0156* 

0140* 

OP71 

138 

1 f.Z 

0C27 

0108* 

0013 

0C55 

0064 

0070* 

0057 

0099 

0025 

0160* 

166* 

0165* 

0171 

0081* 

0057* 

0084* 

0103 

0191* 

0060* 

0151 

0166 



0155* 0159 0167 0167* 0168 



0087 0094 



.-•*-." 



0096 



0164 



0158* 0159* 0160 



0141 
C097 
0142 



0141* 
0106* 
0175 



0169* 
0110* 
0178 



0170 0170* 0187* 0188 0188* 0198* 0199 01?'9* 
0185 0189 0193 0200 



0073 

0084 



0182 
0168* 



0075* 
0105 



0076 
0144 



0078 0079 0081 0082 0083 "093 0098 



0082* 
0058 
0085 
0105* 

0061 
0154 



0083* 
0060 
0085* 
0106 

0074 
0156 



0089* 
0061 
0036 
0108 

0088* 
0157 



0090 
0062 
0088 
0109 

0089 
0161 



0063 
0092 
0110 

0090 
0163 



0063* 

0095 

0111 

0095 
0165 



0070 
0096 
0111* 

0109* 
0182* 



0071* 
0097* 
0144* 

0147* 
0163 



0072 
0100 
0145 

0148 
0183* 



0073 0074 
0100* 0101 
0147 0191 

0150 0150* 



TOTAL STATEMENTS FLAGGED IN THIS 



HBLY = 



DATE 
EC NO. 



28JIJL69 
816444 



14N0V69 
816555 



20JAN/0 
816')76 



13HAR70 
816638 



17APR70 
816677 



01APR71 
818948 



PSOG 
PAGE 



ID 



0PP2-U 
3 



IBB MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589907 

PAGE 3A 

JF24 SYSTEB TEST SUPERVISOR 

OBJECT CARD LISTING 

THE CHARACTER INDICATES A BLANK COLUfIN A<JD THE CHARACTERS D I H INDICATE NUHERIC SHIFT. 

CL 1 THROUGH 16 r 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH t4 CL 65 THROUGH 80 CL 81 THROUGH 96 



TC0Y|»2K BZD CBGB-3H*- C04G7QHFF240001 

- • •• --_., . . . _ 

T<0,D S .OJHAE/A '"0C2-R15 -)% 6D GL-DACDLK 6? /0D R( D<UTHACIRUB E < 6<<UX&BAS 0HB6 -F6*C1 JQFF240002 

- _. . . . . . ^ 

T.0,4< <UT6#CIG -6HO+H <ULV CIG 2UD<H S2LCIDH -2 LCIHH 62HCI.B &Y H4-DH BOYISH-GAY LC0*C#HaFF24OOG3 

K0XY-.-.3 3YDU)6H GH <<V D_ &2.1 * AB?ia»- 8D 2J3Z 1$ DAA48A &1D(&D <V775CIG - 1.KU ) E/D<-IDFF24000- 

T( _) /.K E/'*-C -S*,--.a a-L'<0-D HBC6ACIS /0,EG D .OSE5 -HU 620)6D COH* H ""a HKD ) FJR.PLHFF24000S 

T(->n0H*BF/<3P T ~ICEUH66TE0H»BFS. B &Y6 — >a aYFS)6H G?-aHaYFK_EHI>L2 2ZA5. <K D3 *C<PP-" FF240O36 

T.0?DCD*% ?5 LE BB"»* S77CDH+ &? 7CD-< 6?V3";8- C 2DCS86 C2UDS% ? T &0A XGAYOEA «-B-HA07DFF240007 

T( ?93=*<J-8 CD- <K 8A:i = *<KC1 B|3 O0T = 3|" /OH; C /0:"CH-iHG3<3 G /YA (6H C04 IA0<A: 0-FF240008 

T(-00B = PS -J /0> H0H*BF/DaC TECEU H>6TE0 H*3FS.K 57 /0_-,0H*BFU - .HCIC "8L1 *b (Y<OST8B , HO-AEH4FF240O09 

T+-1,6iBG /YWOH* 3H?"/0H* A S H-6 4"$G5>LT5<| 05 (-.L1 ; | ESFA 6*P M5>PE6FCB0BA 1_X 05D 'H*FF240010 

TI 2&4i?F84C2S+. W8UCT2<PNSfXE8SP TS<TA4= ( 8'R 6*P S32GR30 $- FF2«0011 

**************** **************** *«»*»*«»««**«*** ********* ******* **************** ♦»«»*2L FF240012 

* FF2 - SYSTEH T EST SUPERVISOR. »; ZQFF2400 1 3 

* ROUTINE *55*FF240014 

* 01 - HCDUL E KULTI-PPOGPAHB ING SUPERVISOR. *JS<FF240015 

* 02 - LCGOO T ROUTINE. SET L EFT 2 ADDRESS SH ITCHES TO -BB- T OBTAIN LOGOUT. ••.QFF2U0G16 

* AFTER LOGOUT REHOVE - BE- FROB LEFT 2 SWITCHES. *-L4FF240017 
****»*»»*»****** **************** •**•*•**•*•*•*** **************** **************** *****ELYPF2400 18 
E"*"»E7* = -DC"?H$ ="7H6F1 • C F% ASC R A Sf" Q 09310317710 4057 1 =HDFF240019 



last pa;;e 



DATE 28JUL69 14NOV09 20JAN70 13BAR70 17APR70 01AI-R71 PROG ID 0FF2-4 

EC NO. 816444 816555 816576 816638 816677 818')u8 PAGE 3A 



